;# $Header: importenv.pl,v 4.0 91/03/20 01:25:28 lwall Locked $;# This file, when interpreted, pulls the environment into normal variables.;# Usage:;#	require 'importenv.pl';;# or;#	#include <importenv.pl>local($tmp,$key) = '';foreach $key (keys(ENV)) {    $tmp .= "\$$key = \$ENV{'$key'};" if $key =~ /^[A-Za-z]\w*$/;}eval $tmp;1;